home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
smaltalk
/
st80_pr4.lha
/
st80_pre4
/
Foible
/
FlowKit
/
FlowKit2-PPfix.st
< prev
next >
Wrap
Text File
|
1993-07-24
|
2KB
|
69 lines
!FlowKitBox class methodsFor: 'class initialization'!
initialize
"FlowKitBox initialize"
SmallTextStyle _ TextStyle styleNamed: #icon.! !
FlowKitBox initialize!
!LabelBox methodsFor: 'form access'!
addInput: aString toForm: aForm
"Write the string aString to aForm
NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
(aString asDisplayText textStyle: SmallTextStyle)
displayOn: aForm at: 2 @ 2.
^aForm! !
!NumericInputBox methodsFor: 'form access'!
addInput: aNumber toForm: aForm
"display aValue on aForm and return it"
"Write the number aNumber to aForm
NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
| aNumberString aString |
aNumberString _ aNumber printString.
(aNumberString asDisplayText textStyle: SmallTextStyle)
displayOn: aForm at: 4 @ 3.
^aForm! !
!NumericOutputBox methodsFor: 'form access'!
addInput: aNumber toForm: aForm
"display aValue on aForm and return it"
"Write the number aNumber to aForm
NOTE: Hard-coded routine: assumes 50x18 boxes, icon font"
| aNumberString aString |
aNumberString _ aNumber printString.
(aNumberString asDisplayText textStyle: SmallTextStyle)
displayOn: aForm at: 4 @ 3.
^aForm! !
Object subclass: #FlowKitDirectory
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'FlowKit'!
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
FlowKitDirectory class
instanceVariableNames: ''!
!FlowKitDirectory class methodsFor: 'form access'!
iconDirectory
"return the directory that contains the icons for the FlowKit"
^'/home/cs492/src/foible4.1/icons'! !